home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / forgetpw.zip / FORGETPW.PPS < prev   
Text File  |  1993-04-09  |  4KB  |  114 lines
  1. string Answer,Serial,Phone,Address,City,Password
  2.  
  3. print   "@CLS@"
  4. println "@X5FIS   @X0A  Current User ID: @X0B@USER@"
  5. println "@X5FTHIS @X0A  City/State     : @X0B@CITY@"
  6. println "@X5FYOU? @X0A  Last Time On   : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
  7. println
  8. Answer = ""
  9. inputyn "Does the above information belong to you",Answer,0Eh
  10. if (Answer <> YesChar()) goto notyou
  11.  
  12. println "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
  13. println "then we can help you out, by changing your password for you, if you wil first"
  14. println "verify the following information for us:"
  15. println
  16. println "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  17. println "@X38│@X3E  a) Your PCBoard @X3Fserial number@X3E                                          @X3B│@X07"
  18. println "@X38│@X3E  b) Your voice @X3Fphone number@X3E                                             @X3B│@X07"
  19. println "@X38│@X3E  c) Your @X3Faddress@X3E                                                        @X3B│@X07"
  20. println "@X38│@X3E  d) The @X3Fnew password@X3E you would like to use on this system               @X3B│@X07"
  21. println "@X38│                                                                         @X3B│@X07"
  22. println "@X38│@X31We need @XBFALL FOUR@X31 pieces of information in order to change your password!!@X3B│@X07"
  23. println "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
  24. println
  25. Answer = ""
  26. inputyn "Would you like to confirm the above information",Answer,0Eh
  27. if (Answer <> YesChar()) goto noconfirm
  28.  
  29. adjtime 5
  30. Serial   = ""
  31. Phone    = ""
  32. Address  = ""
  33. Password = ""
  34.  
  35. :askquestions
  36. println
  37. println
  38. inputtext "What is your PCBoard Serial Number",Serial,0Eh,6
  39. println
  40.  
  41. println
  42. inputtext "What is your voice phone number",Phone,0Eh,20
  43. println
  44.  
  45. println
  46. inputtext "What is your street address",Address,0Eh,40
  47. println
  48.  
  49. println
  50. inputtext "City, state & zip (or province/county)",City,0Eh,40
  51. println
  52.  
  53. println
  54. inputtext "What would you like your NEW PASSWORD to be",Password,0Eh,12
  55. println
  56.  
  57. println
  58. Answer = ""
  59. inputyn "Is all of the above information correct",Answer,0Eh
  60. println
  61. if (Answer <> YesChar()) goto askquestions
  62.  
  63. println "@CLS@@X03"
  64. println "Your answers will be placed into a COMMENT where the Sysop can read them"
  65. println "and process your request.  This is usually done within the hour, except"
  66. println "nights, weekends and holidays."
  67. println
  68. println "@X0ESorry, but we do not return calls on forgotten passwords.@X03  If you would like"
  69. println "to speak to someone you may call us at @X0C801-261-1686 @X03during business hours."
  70. println
  71. println "@X0FYou will now be placed into the message editor where you may provide any"
  72. println "other comments and/or edit the answers you have given."
  73. println
  74. more
  75.  
  76. kbdstuff "Y"+chr(13)
  77. kbdstuff "Serial Number: "+Serial+chr(13)
  78. kbdstuff "Voice Number : "+Phone+chr(13)
  79. kbdstuff "Address      : "+Address+chr(13)
  80. kbdstuff "City         : "+City+chr(13)
  81. kbdstuff "New Password : "+Password+chr(13)+chr(13)
  82. end
  83.  
  84. :notyou
  85. println
  86. println "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
  87. println "different user-id, perhaps adding a middle initial to make your logon-id unique"
  88. println "for this system."
  89. :explain
  90. println "@X0A"
  91. println "Here's an example of how to log on with a middle initial:"
  92. println
  93. println "    @X0EEnter your first name?  @X07JOHN Q. PUBLIC"
  94. println
  95. println "@X0AOr any other variation on your user-id may work."
  96. println
  97. println "@X03If you would like to speak to someone you may call us at @X0E801-261-1686 @X03during"
  98. println "regular business hours."
  99. println
  100.  
  101. wait
  102. println
  103. println "Please hang up now and try logging in again."
  104. println
  105. kbdstuff "N"+chr(13)
  106. goodbye
  107.  
  108. :noconfirm
  109. println "@CLS@@X0E"
  110. println "If you have realized that you were signing onto an account that wasn't yours"
  111. println "you may call back and attempt to use a different user-id, perhaps adding a"
  112. println "middle initial to make your logon-id unique for this system."
  113. goto explain
  114.